!name: gardoor_2   April 1991
! improved:03.06.92
roty 180
addx  -a
let m=.05
let k=.05
let g=int(c)
let l=int(d)
addz -e*4/9
brick a,b,e*3/5
addz e*3/5
addx 0.05

for i=1 to g
addy (i-1)*(b-0.05*(g+1))/g+0.05*i
brick a-.1,(b-0.05*(g+1))/g,e/5
del 1
next i
addz e/5
if g=1 then 1
addy (g-2)*(b-0.05*(g+1))/g+(g-2)*0.05
1: 
addy 0.1
for i=1 to l
addx (i-1)*(a-0.1-0.05*(l+1))/l+0.05*i
brick (a-0.1-0.05*(l+1))/l,(b-0.05*(g+1))/g-0.1,e/5
del 1
next i


end
